dcStockR Test

This should be same as the original charts of “Nasdaq 100 Index 1985/11/01-2012/06/29”

library(dcStockR)
library(httr)
library(lubridate)

Get data from dc-js’s repo.

res <- GET("https://github.com/dc-js/dc.js/raw/master/web/ndx.csv")
ndx <- content(res, type = "text/csv")
ndx$date <- as.character(mdy(ndx$date))

Draw charts.

# yearlyBubbleChart

dc(ndx, "yearlyBubbleChart", title = "Yearly Performance (radius: fluctuation/index ratio, color: gain/loss)")

reset

# gainOrLossChart
dc(ndx, "gainOrLossChart", title = "Days by Gain/Loss", height = 300)

reset

# quarterChart
dc(ndx, "quarterChart", title = "Quarters", height = 300)

reset

# dayOfWeekChart
dc(ndx, "dayOfWeekChart", title = "Day of Week", height = 300)

reset

# fluctuationChart
dc(ndx, "fluctuationChart", title = "Days by Fluctuation(%)", height = 300)

reset

# moveChart
dc(ndx, "moveChart", title = "Monthly Index Abs Move & Volume/500,000 Chart")

reset

# dataCount
dc(ndx, "dataCount")

reset

# dataTable
dc(ndx, "dataTable")

reset